home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / amos / AMOSL0495.lzh / AMOSLIST / 000048_amos-request@svcs1.digex.net_Mon Apr 10 12:06:26 1995.msg < prev    next >
Internet Message Format  |  1995-05-01  |  3KB
  1. Received: from svcs1.digex.net by nfs2.digex.net with SMTP id AA18316
  2.   (5.67b8/IDA-1.5); Mon, 10 Apr 1995 12:05:51 -0400
  3. Received: by svcs1.digex.net id AA22078
  4.   (5.67b8/IDA-1.5 for amos-out); Mon, 10 Apr 1995 08:46:06 -0400
  5. Received: from nfs2.digex.net by svcs1.digex.net with SMTP id AA22074
  6.   (5.67b8/IDA-1.5 for <amos@svcs1.digex.net>); Mon, 10 Apr 1995 08:46:03 -0400
  7. Received: from dc.hb.se (mayday.dc.hb.se) by nfs2.digex.net with SMTP id AA06094
  8.   (5.67b8/IDA-1.5 for <Amos-list@access.digex.net>); Mon, 10 Apr 1995 08:46:00 -0400
  9. Received: from utb.shv.hb.se (ewa.shv.hb.se) by dc.hb.se (4.1/SMI-4.0)
  10.     id AA03443; Mon, 10 Apr 95 14:44:08 +0200
  11. Received: from EWA/SpoolDir by utb.shv.hb.se (Mercury 1.12);
  12.     Mon, 10 Apr 95 14:46:48 +0100
  13. Received: from SpoolDir by EWA (Mercury 1.12); Mon, 10 Apr 95 14:46:38 +0100
  14. From: "Marco Eberhardt" <SA437@utb.shv.hb.se>
  15. Organization:  University of Boras
  16. To: michalow@freenet.calgary.ab.ca, Amos-list@access.digex.net
  17. Date:          Mon, 10 Apr 1995 14:46:35 MET-1MEST
  18. Subject:       Re: Help me I'm stuck.
  19. Priority: normal
  20. X-Mailer: Pegasus Mail v3.22
  21. Message-Id: <4DEF0945AF@utb.shv.hb.se>
  22. Status: RO
  23. X-Status: 
  24.  
  25. Michalow wrote:
  26.  
  27. > I've just started prigramming in Amos.
  28. > I can't figiure out how to make amos time something.
  29. > For example i will type a sentece and it will tell me how long it took for me
  30. > to type it. I have tried the timer command, but it doesn't seem to be working
  31. > right. I have to put it in loop for it to time anything, but then I can't input
  32. > anything.  I'm using amos 1.36. Can anyone help me please.
  33.  
  34. Well... try somthing like this, hope that this is what you 
  35. want: (This come directly from my mind)
  36. '
  37.  
  38. Randomize Timer
  39. Locate 1,1 : Rem Change this... now it's upperleft corner!
  40. Do  
  41.     While K$=""
  42.         K$=Inkey$ : Rem Read the keyboard! 
  43.     Wend
  44.     Text$=Text$+K$
  45.     If K$=Chr$(13) Then Exit
  46. Loop
  47.     T=(Timer/3600)
  48.     Locate 1,3 : Print "Tid :";T
  49. End
  50.  
  51. If the maths aroud timer is correct, i don't know... but the other 
  52. shoud be ok!
  53.  
  54. Try it, and tell me, if i'm wrong!
  55.  
  56. Good Luck!
  57.  
  58. /Marco.
  59.  
  60.  
  61. *********************************************************************
  62. * Martial Arts makes life worth living  :-))                        *  
  63. *********************************************************************
  64. * The Place To Be Happy Is Here                                     *
  65. * The Time To Be Happy Is Now                                       *
  66. * The Way To Be Happy Is To Make Others So!                         *
  67. *********************************************************************
  68. * E-MAIL ME: SA437@UTB.SHV.HB.SE                                    *
  69. *********************************************************************